home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
compuserve-file-archive
/
05 Programming
/
TOKEN.BIN
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
512b
|
14 lines
10 POKE56,160:CLR:F$="":GOTO2020
20 INPUT"[147]FILENAME";F$
30 IFF$=""THEN20
40 F$="0:"+F$
50 OPEN1,8,8,F$
60 PRINT"ONE MOMENT PLEASE..."
70 SYS49152
2020 PRINT"ONE MOMENT PLEASE..."
2030 P=PEEK(45)+256*PEEK(46)-1
2040 IFPEEK(P)THENP=P-1:GOTO2040
2050 P=P-175
2060 FORI=0TO175:POKE49152+I,PEEK(P+I):NEXT
2070 POKE2070,48:GOTO20